home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / DESIGN / WRITSORT.INC < prev   
Text File  |  1987-05-11  |  760b  |  37 lines

  1. overlay procedure writsort;
  2.  
  3. type
  4.    string200 = string[200];
  5.  
  6. var
  7.    line : string200;
  8.    infile, outfile : text;
  9.    i : integer;
  10.  
  11. begin
  12.    assign(outfile,progname+'s.pas');
  13.    rewrite(outfile);
  14.    assign(infile,'sortlib1.inc');
  15.    reset(infile);
  16.    while not eof(infile) do
  17.    begin
  18.       readln(infile,line);
  19.       writeln(outfile,line);
  20.    end;
  21.    close(infile);
  22.  
  23.    writeln(outfile,'   ID1 := FirstCust.'+vars[key],';');
  24.    writeln(outfile,'   ID2 := SecondCust.`+vars[key],';');
  25.    writeln(outfile,'   Less := ID1 < ID2');
  26.  
  27.    assign(infile,sortlib2.inc);
  28.    reset(infile);
  29.    while not eof(infile) do
  30.    begin
  31.       readln(infile,line);
  32.       writeln(outfile,line);
  33.    end;
  34.    close(infile);
  35.    close(outfile);
  36. end;
  37.